SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
CREATE Procedure [dbo].[SP_TCCANJ_CLIE_D02]
/*-------------------------------------------------------*/
/*---Empresa              : OFISIS S.A.                --*/
/*---Cliente              : OFISIS S.A.                --*/
/*---Sistema              : Tesoreria                  --*/
/*---M÷dulo               : Empresa                    --*/
/*---Programa             : Eliminacion de Aplicaci½n  --*/
/*                          Letras		       --*/
/*                          Por Canje                  --*/ 
/*---Script               : TCCANJ_CLIE_D02.sql        --*/
/*---Nombre SP            : SP_TCCANJ_CLIE_D02         --*/
/*---Desarrollado por     : Denis Villacr's            --*/
/*---Fecha Creaci÷n       : 07/07/2000                 --*/
/*---Base Datos           : Microsoft Sql Server       --*/
/*---Versi÷n              : 7.0                        --*/
/*---Invoca a SP          :                            --*/
/*-------------------------------------------------------*/

/*-------------------------------------------------------*/
/*---Modificado 1 por     :                            --*/
/*---Fecha Modificaci÷n   :                            --*/ 
/*---Detalle Modificaci÷n :                            --*/
/*-------------------------------------------------------*/

/*-------------------------------------------------------*/
/*---Comentarios                                       --*/
/*---                                                  --*/
/*---                                                  --*/
/*-------------------------------------------------------*/

/*-------------------------------------------------------*/
/*---Drop Proc SP_TCCANJ_CLIE_D02                      --*/
/*---Grant all on SP_TCCANJ_CLIE_D02 to public         --*/ 
/*---SP_TCCANJ_CLIE_D02                              --*/
/*-------------------------------------------------------*/
 @ISCO_EMPR      TD_VC_002, 
 @ISCO_USUA_MODI TD_VC_008_USUA,
 @ISCO_CLIE      TD_VC_020,
 @ISNU_CANJ      TD_VC_008,
 @ISCO_UNID_CONC TD_VC_003,
 @IDFE_CANJ	 TD_DT_001
	As
Declare
 @VSCO_ESTA_DOCU   TD_VC_003,
 @VSCO_ESDO_TMLE   TD_VC_003,
 @CNIM_APLI   	   TD_NU_016_004,
 @VNNU_LETR_PAGO   TD_IN_001


  Begin Tran SP_TCCANJ_PROV_D01

    Select @VSCO_ESTA_DOCU = CO_ESTA_DOCU From TTTIES_DOCU
     Where ST_ESDO_0001 = 'S'

     Update TMDOCU_CLIE 
	Set CO_ESTA_DOCU = @VSCO_ESTA_DOCU,
	    NU_CANJ = NULL,
	    IM_PAGA = IM_PAGA - T2.IM_CANJ_MDOC, 
	    FE_USUA_MODI = Getdate(), 
            CO_USUA_MODI = @ISCO_USUA_MODI
     FROM   TMDOCU_CLIE T1, TDCANJ_CLIE	 T2
      Where T1.CO_EMPR = @ISCO_EMPR
	    And T1.CO_CLIE = @ISCO_CLIE
	    And T1.NU_CANJ = @ISNU_CANJ
	    AND T2.CO_EMPR = @ISCO_EMPR
	    And T2.CO_UNID_CONC = @ISCO_UNID_CONC
            AND T2.CO_CLIE=  @ISCO_CLIE
            AND T2.NU_CANJ = @ISNU_CANJ
            AND T2.FE_CANJ = @IDFE_CANJ
            AND T2.CO_TIPO_DOCU = T1.CO_TIPO_DOCU
            AND T2.NU_DOCU_CLIE = T1.NU_DOCU_CLIE

	   If @@error <> 0
	      Begin
	        Rollback tran
	        Return
	      End

	
     Update TMLETR_CLIE 
	Set IM_APLI = IM_APLI - T2.IM_DETA, 
	    FE_USUA_MODI = Getdate(), 
            CO_USUA_MODI = @ISCO_USUA_MODI
        FROM   TMLETR_CLIE T1, TDCANJ_CLIE T2
        Where T1.CO_EMPR = @ISCO_EMPR
	    And T1.CO_CLIE = @ISCO_CLIE
	    AND T2.CO_EMPR = @ISCO_EMPR
	    And T2.CO_UNID_CONC = @ISCO_UNID_CONC
            AND T2.CO_CLIE=  @ISCO_CLIE
            AND T2.NU_CANJ = @ISNU_CANJ
            AND T2.FE_CANJ = @IDFE_CANJ
            AND T1.NU_LETR_CLIE = T2.NU_LETR_CLIE

	   If @@error <> 0
	      Begin
	        Rollback tran
	        Return
	      End
	

	Insert Into  TMREGI_ELIM (CO_EMPR, CO_TABL_ORIG, DE_TABL_ORIG,
	    	     CO_CLAV_TAOR )
   	select @ISCO_EMPR, 84, 'DETALLE CANJE CLIENTES',
	       RTRIM( @ISCO_EMPR )+ REPLICATE('#', 2-LEN(RTRIM(@ISCO_EMPR)))+ 
	       RTRIM( @ISCO_CLIE )+ REPLICATE('#', 20-LEN(RTRIM(@ISCO_CLIE)))+
	       RTRIM( @ISNU_CANJ )+ REPLICATE('#', 8-LEN(RTRIM(@ISNU_CANJ)))+
	       RTRIM( NU_SECU_CANJ )+ REPLICATE('#', 1-LEN(RTRIM(NU_SECU_CANJ)))
 	 From  TDCANJ_CLIE
	Where  CO_EMPR = @ISCO_EMPR
	And CO_UNID_CONC = @ISCO_UNID_CONC
        AND CO_CLIE=  @ISCO_CLIE
        AND NU_CANJ = @ISNU_CANJ
        AND FE_CANJ = @IDFE_CANJ

	If @@error <> 0
	  Begin
	     Rollback tran
	     Return
	  End    

	Delete TDCANJ_CLIE
	Where CO_EMPR = @ISCO_EMPR
	And CO_UNID_CONC = @ISCO_UNID_CONC
        AND CO_CLIE=  @ISCO_CLIE
        AND NU_CANJ = @ISNU_CANJ
        AND FE_CANJ = @IDFE_CANJ

	   If @@error <> 0
	      Begin
	        Rollback tran
        	Return
	      End        


	Insert into  TMREGI_ELIM (CO_EMPR, CO_TABL_ORIG, DE_TABL_ORIG,
	    	     CO_CLAV_TAOR) 
   	select @ISCO_EMPR, 19, 'CABECERA CANJE CLIENTES',
	       RTRIM( @ISCO_EMPR )+ REPLICATE('#', 2-LEN(RTRIM(@ISCO_EMPR)))+ 
	       RTRIM( @ISCO_CLIE )+ REPLICATE('#', 20-LEN(RTRIM(@ISCO_CLIE)))+
	       RTRIM( @ISNU_CANJ )+ REPLICATE('#', 8-LEN(RTRIM(@ISNU_CANJ)))
	From   TCCANJ_CLIE
	Where  CO_EMPR = @ISCO_EMPR
	And CO_UNID_CONC = @ISCO_UNID_CONC
        AND CO_CLIE=  @ISCO_CLIE
        AND NU_CANJ = @ISNU_CANJ
        AND FE_CANJ = @IDFE_CANJ

   If @@error <> 0
      Begin
        Rollback tran
        Return
      End    

  Delete TCCANJ_CLIE
     Where CO_EMPR = @ISCO_EMPR
	And CO_UNID_CONC = @ISCO_UNID_CONC
        AND CO_CLIE=  @ISCO_CLIE
        AND NU_CANJ = @ISNU_CANJ
        AND FE_CANJ = @IDFE_CANJ

	   If @@error <> 0
	      Begin
        	Rollback tran
	        Return
	      End    

Commit Tran
/*------------------------- Fin ------------------------------*/


GO
